home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / tptsr.zip / TSR.INT < prev    next >
Text File  |  1990-06-25  |  828b  |  47 lines
  1. {
  2.  
  3.     tsr.pas
  4.     6-25-90
  5.  
  6.     Copyright 1990
  7.     John W. Small
  8.     All rights reserved
  9.  
  10.     PSW / Power SoftWare
  11.     P.O. Box 10072
  12.     McLean, Virginia 22102 8072
  13.     (703) 759-3838
  14.  
  15.     Use tsr.skl for a skeleton to program with this unit.
  16.     Compile/run tsr.dem for a demonstration of this unit.
  17.  
  18. }
  19.  
  20. unit tsr;
  21.  
  22. interface
  23.  
  24.     uses crt, dos;
  25.  
  26.     const
  27.  
  28.         TSRcolor : boolean = true;
  29.         { Popups can use this to determine color/mono modes. }
  30.  
  31.     type
  32.  
  33.         TSRproc = procedure;
  34.         TSRCommProc = procedure(optCh : char;
  35.             argSeg, argOfs : word);
  36.  
  37.     procedure MakeTSR(PopupOptions, PopupID : string;
  38.         HotKeyCode, HotShift : byte;
  39.         StartUp, Popup, Wrapup : TSRproc;
  40.         OptionComm : TSRCommProc);
  41.  
  42.     var
  43.         TSRandPopupOptions: string;
  44.         { Popups can use this with CmdLnParams object }
  45.  
  46. implementation
  47.